home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #026 (19xx)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #026 (19xx)(Amiga User Group Deutschland e.V.).adf / Etiketten_V1.02 / Etiketten (.txt) < prev    next >
AmigaBASIC Source Code  |  1988-12-10  |  6KB  |  181 lines
  1. REM -----------------------------------------
  2. REM              Etiketten Druck
  3. REM         © 1988 by Pumuckel-Soft
  4. REM -----------------------------------------
  5.  
  6. SCREEN 2,640,240,4,2
  7. WINDOW 2,"Disketten-Etiketten-© by Pumuckel-Soft",,1,2
  8. PALETTE 0,1,1,1
  9.  
  10. Bildaufbau:
  11.    COLOR 15,0
  12.    LOCATE 1,23:PRINT " PPPPPPPP   SSSSSSS   BBBBBBBBB " 
  13.    LOCATE 2,23:PRINT " P       P S       S  B        B"
  14.    LOCATE 3,23:PRINT " P       P S          B        B"
  15.    COLOR 5,0
  16.    LOCATE 4,16:PRINT " © Copyright 1988 by Michael Junker (alias PSB)"
  17.    COLOR 15,0
  18.    LOCATE 5,23:PRINT " P                 S  B        B"
  19.    LOCATE 6,23:PRINT " P         S       S  B        B"
  20.    LOCATE 7,23:PRINT " P          SSSSSSS   BBBBBBBBB "
  21.    COLOR 13,0 : LOCATE 9,20 : PRINT "         DISKETTEN - ETIKETTEN": PRINT
  22.    COLOR 2,0 : PRINT " Dieses Programm ist dafür da, um Disk-Etiketten zu drucken. Sie brauchen "
  23.    PRINT "  nur den Namen, die Nummer und die Art der Diskette anzugeben.Wobei bei "
  24.    PRINT "  Art gemeint ist, ob es eine Anwender oder eine Spiel Diskette ist. Das "
  25.    PRINT "        bleibt aber jedem selbst überlassen, viel vergnügen ...!!"
  26.    LINE (280,115)-(525,200),2,b
  27.    COLOR 2,0
  28.    LOCATE 16,37 : PRINT "         Schreibschutz AUS ->"
  29.    LOCATE 17,37 : PRINT "                       AN  ->"
  30.    LOCATE 18,37 : PRINT "-----------------------------"
  31.    LOCATE 19,37 : PRINT "Etikettendrucker          001"
  32.    LOCATE 20,37 : PRINT "-----------------------------"
  33.    LOCATE 22,37 : PRINT "Diskname   : Etikettendrucker"
  34.    LOCATE 23,37 : PRINT "Disknummer : 001"
  35.    LOCATE 24,37 : PRINT "Diskart    : Anwender"
  36.    LOCATE 25,37 : PRINT "Copierprg  : WB-Kopieren"
  37.    COLOR 5,0 
  38.    LOCATE 19,1 : PRINT " ... so ähnlich sehen die  \"
  39.    LOCATE 20,1 : PRINT "                         --->"
  40.    LOCATE 21,1 : PRINT "  Etiketten dann aus !!    /"
  41.  
  42. Mouse1:   
  43.    COLOR 2,1 : LOCATE 27,22 : PRINT " 1 X linke Maus-Taste für weiter  ..."   
  44.    IF MOUSE(0)>-1 THEN Mouse1  : REM  nur wenn Maus gedrueck, dann weiter !
  45.  
  46.   Bildaufbau2:
  47.      CLS
  48.      FOR a=0 TO 620 STEP 4      : REM \
  49.      i=i+1 : IF i=15 THEN i=0   : REM  > obere Dreieck
  50.      LINE (320,0)-(a,80),i      : REM /
  51.      NEXT a
  52.   
  53.      FOR a=0 TO 620 STEP 4      : REM \
  54.      i=i+1 : IF i=15 THEN i=0   : REM  > untere Dreieck
  55.      LINE (320,80)-(a,0),i      : REM /
  56.      NEXT a
  57.      COLOR 2,1
  58.      LOCATE 16,36 : PRINT "  _______________"
  59.      LOCATE 16,25 : PRINT "Diskname  :",dn$   
  60.      LOCATE 18,36 : PRINT "  ___"
  61.      LOCATE 18,25 : PRINT "Disknummer:",dr$
  62.      LOCATE 20,36 : PRINT "  _______________"
  63.      LOCATE 20,25 : PRINT "Diskart   :",da$
  64.      LOCATE 22,36 : PRINT "  _______________"
  65.      LOCATE 22,25 : PRINT "Copierprg.:",co$
  66.      LINE (50 ,195)-(190,212),9,bf : LINE (50 ,195)-(190,212),2,b : REM Eingaben
  67.      LINE (250,195)-(390,212),9,bf : LINE (250,195)-(390,212),2,b : REM Drucken
  68.      LINE (430,195)-(570,212),9,bf : LINE (430,195)-(570,212),2,b : REM Beenden
  69.      COLOR 2,9
  70.      LOCATE 26,12 : PRINT "Eingaben"
  71.      LOCATE 26,37 : PRINT "Drucken"
  72.      LOCATE 26,60 : PRINT "Beenden!"
  73.      
  74.   
  75.   
  76.   Maus:
  77.       ON MOUSE GOSUB Start
  78.       MOUSE ON
  79.       GOTO Maus
  80.   
  81.   Start:   
  82.       Maus=MOUSE(0)
  83.       y=MOUSE(1) : x= MOUSE(2)          
  84.       IF x>197 AND x<213 AND y> 54 AND y<193 THEN Eingaben
  85.       IF x>197 AND x<213 AND y>254 AND y<393 THEN Drucker
  86.       IF x>197 AND x<213 AND y>434 AND y<573 THEN Allesende
  87.       RETURN
  88.    
  89.   Eingaben:
  90.      COLOR 2,1     
  91.      LOCATE 16,36 : PRINT "  _______________" : REM \     
  92.      LOCATE 18,36 : PRINT "  ___"             : REM  \  erstmal
  93.      LOCATE 20,36 : PRINT "  _______________" : REM  /         saubermachen
  94.      LOCATE 22,36 : PRINT "  _______________" : REM /
  95.     
  96.      LOCATE 16,38 : INPUT"",dn$               : REM \
  97.      LOCATE 18,38 : INPUT"",dr$               : REM  \  dann was
  98.      LOCATE 20,38 : INPUT"",da$               : REM  /      eingeben
  99.      LOCATE 22,38 : INPUT"",co$               : REM /
  100.  
  101.      IF dn$="" AND dr$="" AND da$="" AND co$="" THEN eingegeben=0 : GOTO Maus
  102.      REM      obere Zeile=wenn nur immer<RETURN> gedrueckt wurde
  103.      REM         (nichts im String steht) dann nicht drucken 
  104.      REM                        (warum auch !)
  105.      
  106.      eingegeben=1
  107.      GOTO Maus
  108.  
  109. Drucker:
  110.   IF eingegeben=0 THEN Info : REM   wenn keine einbgabe statgefunden hat !
  111.   OPEN "par:" FOR OUTPUT AS #1     
  112.       a$=" " : x=LEN(dn$) : z=15-x
  113.       FOR w=0 TO z : dn$=dn$+a$ : NEXT w : REM  Diskname max. 15 Zeichen  
  114.       a$=" " : x=LEN(dr$) : z=3-x
  115.       FOR w=0 TO z : dr$=dr$+a$ : NEXT w : REM  Disknummer max. 3 Zeichen
  116.       a$=" " : x=LEN(da$) : z=15-x
  117.       FOR w=0 TO z : da$=da$+a$ : NEXT w : REM  Diskart max. 15 Zeichen
  118.       a$=" " : x=LEN(co$) : z=15-x
  119.       FOR w=0 TO z : co$=co$+a$ : NEXT w : REM  Copierprg. max. 15 Zeichen
  120.   PRINT#1,CHR$(27);"x1"; : REM  NLQ einschalten
  121.   PRINT#1,"+++++++++++++++++++++++++++++"
  122.   REM Superscript ein bzw. aus
  123.   PRINT#1,"+ ";CHR$(27);"S";CHR$(0);"       Schreibschutz Aus->";CHR$(27);"T";"+"
  124.   PRINT#1,"+ ";CHR$(27);"S";CHR$(0);"       Schreibschutz An ->";CHR$(27);"T";"+"
  125.   
  126.   REM    Nun der Text der auf der oberen Kante steht
  127.   REM    ( wenn die Diskette im Kasten steht,kann man
  128.   REM      von oben sehen was es fuer eine Disk ist ! )
  129.   
  130.   PRINT#1,"+";CHR$(27);"S";CHR$(0);dn$;"       ";dr$;CHR$(27);"T";"+"
  131.   
  132.   REM   ... hier geht es normal weiter !
  133.   
  134.   PRINT#1,"+                           +"
  135.   PRINT#1,"+                           +"
  136.   PRINT#1,CHR$(20);
  137.   PRINT#1,CHR$(27);"T";
  138.   PRINT#1,"+                           +
  139.   PRINT#1,"+                           +"
  140.   PRINT#1,"+---------------------------+"
  141.   PRINT#1,"+ Diskname :";dn$"+"
  142.   PRINT#1,"+---------------------------+"
  143.   PRINT#1,"+ Disknr.  :";dr$"            +"
  144.   PRINT#1,"+---------------------------+"
  145.   PRINT#1,"+ Diskart  :";da$"+"
  146.   PRINT#1,"+---------------------------+"
  147.   PRINT#1,"+ Copierprg:";co$"+"
  148.   PRINT#1,"+++++++++++++++++++++++++++++"
  149.   PRINT#1,"" : PRINT#1,"" :  s=s+1
  150.   IF s=3 THEN PRINT#1,CHR$(12) : s=0
  151.   CLOSE#1
  152.   LOCATE 16,36 : PRINT "  _______________" : REM \
  153.   LOCATE 18,36 : PRINT "  ___"             : REM  \ Eingabenfeld
  154.   LOCATE 20,36 : PRINT "  _______________" : REM  /          reinigen
  155.   LOCATE 22,36 : PRINT "  _______________" : REM /
  156.   eingegeben=0
  157.   GOTO Maus
  158.   
  159. Allesende:
  160.   FOR a=0 TO 640 STEP 2
  161.   LINE (a,260)-(a,0),1
  162.   NEXT a
  163.   FOR a=639 TO 0 STEP -2
  164.   LINE (a,260)-(a,0),1
  165.   NEXT a
  166.   LOCATE 15,23 :COLOR 3,2 : PRINT " .... gehe zurück zum System ! By by ..."
  167.   FOR e=0 TO 1500 : NEXT e
  168.   SYSTEM
  169.  
  170.  Info:
  171.   COLOR 12,0
  172.   LOCATE 14,20 : PRINT " ... erst was eingeben und dann Drucken !!!"
  173.   FOR i=0 TO 1000 : NEXT i
  174.   LOCATE 14,20 : PRINT "                                           "
  175.   COLOR 4,9
  176.   GOTO Maus
  177.    
  178.   
  179.   
  180.   
  181.